﻿Public Class about

    Private Sub about_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ver As String = My.Settings.version
        Dim about As String = Me.Label3.Text.ToString
        about = about.Replace("%ver%", ver)
        Label3.Text = about
    End Sub
End Class